home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / database / ingres04.lzh / source / parser / ack_err.c next >
Encoding:
C/C++ Source or Header  |  1985-01-23  |  343 b   |  29 lines
  1. # include    <ingres.h>
  2. # include    <pv.h>
  3. # include    <sccs.h>
  4.  
  5. SCCSID(@(#)ack_err.c    8.1    12/31/84)
  6.  
  7. /*
  8. **  ACK_ERR -- the error passing routine for the parser
  9. **
  10. **    Trace Flags:
  11. **        ack_err ~~ 65
  12. */
  13.  
  14. ack_err()
  15. {
  16.     extern int    Ingerr;
  17.     extern int    Err_fnd;
  18.  
  19. # ifdef    xPTR1
  20.     tTfp(65, 0, "ack_err\n");
  21. # endif
  22.  
  23.     Ingerr = 1;
  24.  
  25.     Err_fnd += 1;
  26.  
  27.     return (1);
  28. }
  29.